home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / boyan51a.zip / TRIBBS.BSC < prev    next >
Text File  |  1993-11-15  |  2KB  |  71 lines

  1. \\
  2. \\ Tribbs script by Lee Breeden
  3. \\
  4.  
  5. \\ This script automates logons to Tribbs type Bulletin Boards.
  6. \\ You must set the following macros with BOYAN's configuration module:
  7. \\  \! = Macro # 111 = Your first name
  8. \\  \@ = Macro # 112 = Your last name
  9. \\ You must set a back quote character one space after your first
  10. \\ name.  ie:  Lee `
  11. \\ Script by:  Lee Breeden
  12.  
  13. \DM[CONNECTED TO PC-BOARD!]
  14. |LOGON
  15. \\wl
  16. \ST[ » Press <TAB> for Menu options «]
  17. \SVN[]\SVF[]\SVG[]\SVM[]\SVQ[]\SVS[]\SVU[]
  18. \SVY[%SC]\SVI[%SN]
  19. \gb[menu]
  20.  
  21.  
  22. |menu
  23. \BL[NAME]
  24. \BL[QUEST]
  25. \BL[Files]
  26. \EB
  27.  
  28. |name
  29. \IE+%VN,X[\eb]
  30. \wp[]\dm21[Starting to log name onto %SN]
  31. \IF+Press Escape to enter[^[ ~~^[ {]
  32. \IF+Press Escape twice [^[~~^[  {]
  33. \if+Escape[^[~~^[{\gb[name]]                        \\ looks for prompt
  34. \if+raphics[n{\gb[name]]                            \\ looks for prompt
  35. \if+irst["*\! \@;%PW{\eb]                          \\ looks for prompt
  36. \if+ast[\@{\gb[name]]                               \\ looks for prompt
  37. \if+required[{\gb[name]]                            \\ looks for prompt
  38. \if+Is this correct[{\gb[name]]                     \\ looks for prompt
  39. \if+(C) to continue logon as a new user?[\gs[newreg]]
  40. \if+Re-enter your name[r{\gb[name]]                 \\ error messages
  41. \if+assword[%PW{\svn[x]\eb]                         \\ looks for prompt
  42. {\pa[1]\gb[name]
  43.  
  44. |QUEST
  45. \IE+%VQ,X[\eb]
  46. \DM[Script running - connected to %SN]
  47. \IF+(NS)[n{\GB[quest]]
  48. \IF+ontinue[{\GB[quest]]
  49. \IF+mail[{\GB[quest]]
  50. \IF+(NS)non-stop?[n{\GB[quest]]
  51. \IF+Command?[{\SVQ[X]\EB]
  52. \IF+(Enter)[N{\GB[quest]]
  53. \IF+ (Enter)=none?[{\GB[quest]]
  54. \IF+ore[S{\GB[quest]]
  55. \IF+respond[{\GB[quest]]
  56. \if+Main [{\SVQ[X]\eb]
  57. \if+assword[%PW{]
  58. \WP[]^K{\GB[quest]
  59. \IF+Selection[{\SVQ[X]\EB]
  60. \EB
  61.  
  62. |Mail
  63. \WF[Command? ]d{
  64. \WF[Packet (Y/n)? ]Y{
  65. \WF[Command? ]g{
  66.  
  67. |Files
  68. F{~
  69. N{~
  70. A{~
  71.